- Operații matematice simple
2+2
## [1] 4
library(openair)
summary(mydata)
## date ws wd nox
## Min. :1998-01-01 00:00:00 Min. : 0.000 Min. : 0 Min. : 0.0
## 1st Qu.:1999-11-14 15:00:00 1st Qu.: 2.600 1st Qu.:140 1st Qu.: 82.0
## Median :2001-09-27 06:00:00 Median : 4.100 Median :210 Median : 153.0
## Mean :2001-09-27 06:00:00 Mean : 4.489 Mean :200 Mean : 178.8
## 3rd Qu.:2003-08-10 21:00:00 3rd Qu.: 5.760 3rd Qu.:270 3rd Qu.: 249.0
## Max. :2005-06-23 12:00:00 Max. :20.160 Max. :360 Max. :1144.0
## NA's :632 NA's :219 NA's :2423
## no2 o3 pm10 so2
## Min. : 0.00 Min. : 0.000 Min. : 1.00 Min. : 0.000
## 1st Qu.: 33.00 1st Qu.: 2.000 1st Qu.: 22.00 1st Qu.: 2.175
## Median : 46.00 Median : 4.000 Median : 31.00 Median : 4.000
## Mean : 49.13 Mean : 7.122 Mean : 34.38 Mean : 4.795
## 3rd Qu.: 61.00 3rd Qu.:10.000 3rd Qu.: 44.00 3rd Qu.: 6.500
## Max. :206.00 Max. :70.000 Max. :801.00 Max. :63.205
## NA's :2438 NA's :2589 NA's :2162 NA's :10450
## co pm25
## Min. : 0.000 Min. : 0.0
## 1st Qu.: 0.635 1st Qu.: 13.0
## Median : 1.140 Median : 20.0
## Mean : 1.464 Mean : 21.7
## 3rd Qu.: 1.980 3rd Qu.: 28.0
## Max. :19.705 Max. :398.0
## NA's :1936 NA's :8775
- Crearea de funcții și librării pentru automatizarea proceselor
library(openair)
library(dplyr)
library(lubridate)
d <- mydata%>%filter(year(date) == 2002)%>%group_by(year(date)) %>% summarise(mn_nox = mean(nox))